home *** CD-ROM | disk | FTP | other *** search
/ Creative Computers / Creative Computers CD-ROM, Volume 1 (Legendary Design Technologies, Inc.)(1994).iso / commercial / inovatronics / edgedemo / edgeeditor / rexx / menu_deletefile.edge < prev    next >
Text File  |  1994-11-17  |  535b  |  22 lines
  1. /*
  2. ** $VER: Menu_DeleteFile.edge 1.0 (Friday 22-Oct-93 12:55:22)
  3. **
  4. ** Delete some files
  5. **
  6. ** Written by Thomas liljetoft & Inovatronics
  7. */
  8.  
  9. options results
  10.  
  11. /* ask user what they want to delete */
  12. requestfile title """Select File(s) To Delete...""" multiselect path """""" file """""" getdir
  13.  
  14. /* if things were selected then do it */
  15. if rc==0 then do
  16.     files = result
  17.     
  18.     /* lets be paranoid about this */
  19.     requestchoice """Are you sure you wish to delete selected entries?"""
  20.     if RC == 0 then address command delete """"files""""
  21. end
  22.